Demo for (pls *location*):

[15]> (pls *locations*)
((OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
  LOCATION
  ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))
 (OBJECTS (FROG CHAIN) PATHS
  ((LIVING-ROOM EAST DOOR)) LOCATION
  ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))
 (OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) LOCATION
  ((YOU ARE INTHE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER))))

 
Demo for (dw):

LIVING-ROOM
(OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 LOCATION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) LOCATION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) LOCATION
 ((YOU ARE INTHE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS NIL LOCATION GARDEN)

NIL


Demo for THREE DESCRIPTION FUNCTIONS:

[54]> (describe-objects-in 'attic)
(THERE IS NOTHING ON THE FLOOR)
[55]> (describe-objects-in 'living-room)
((YOU SEE A WHISKEY ON THE FLOOR) (YOU SEE A BUCKET ON THE FLOOR))
[56]> (describe-objects-in 'garden)
((YOU SEE A FROG ON THE FLOOR) (YOU SEE A CHAIN ON THE FLOOR))


Demo for LOOK:

[18]> (setf (get 'you 'location)'living-room)
LIVING-ROOM
[19]> (look)
(YOU ARE IN THE LIVING-ROOM)
(A WIZZARD IS SNORING LOUDLY ON THE COUCH)
(THERE IS A DOOR GOING WEST FROM HERE)
(THERE IS A LADDER GOING UPSTAIRS FROM HERE)
(YOU SEE A WHISKEY ON THE FLOOR)
(YOU SEE A BUCKET ON THE FLOOR)
NIL
[20]> (setf (get 'you 'location)'garden)
GARDEN
[21]> (look)
(YOU ARE IN A BEAUTIFUL GARDEN)
(THERE IS A WELL IN FRONT OF YOU)
(THERE IS A DOOR GOING EAST FROM HERE)
(YOU SEE A FROG ON THE FLOOR)
(YOU SEE A CHAIN ON THE FLOOR)
NIL
[22]> (setf (get 'you 'location)'attic)
ATTIC
[23]> (look)
(YOU ARE IN THE ATTIC)
(THERE IS A GIANT WELDING TORCH IN THE CORNER)
(THERE IS A LADDER GOING DOWNSTAIRS FROM HERE)
(THERE IS NOTHING ON THE FLOOR)
NIL


Demo for PICKUP:

[37]> (setf (get 'you 'location)'garden)
GARDEN
[38]> (dw)
LIVING-ROOM
(OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS NIL LOCATION GARDEN)

NIL
[39]> (pickup 'rake)
Cannot pick up RAKE in location GARDEN.
NIL
[40]> (pickup 'frog)
Picked up the item: FROG
NIL
[41]> (dw)
LIVING-ROOM
(OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS (FROG) LOCATION GARDEN)

NIL



Demo for INVENTORY:


[43]> (setf (get 'you 'location)'living-room)
LIVING-ROOM
[44]> (dw)
LIVING-ROOM
(OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS NIL LOCATION LIVING-ROOM)

NIL
[45]> (inventory)
You are not carrying anything at all!
NIL
[46]> (pickup 'whiskey)
Picked up the item: WHISKEY
NIL
[47]> (dw)
LIVING-ROOM
(OBJECTS (BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS (WHISKEY) LOCATION LIVING-ROOM)

NIL
[48]> (pickup 'bucket)
Picked up the item: BUCKET
NIL
[49]> (dw)
LIVING-ROOM
(OBJECTS NIL PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS (BUCKET WHISKEY) LOCATION LIVING-ROOM)

NIL

[50]> (inventory)
You are carrying BUCKET, WHISKEY, in the LIVING-ROOM.
NIL



Demo for WALK:

[23]> (setf (get 'you 'location) 'living-room)
LIVING-ROOM
[24]> (dw)
LIVING-ROOM
(OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS NIL LOCATION LIVING-ROOM)

NIL
[25]> (walk 'north)
Sorry - you cannot move NORTH from the LIVING-ROOM.
NIL
[26]> (walk 'upstairs)
You have walked UPSTAIRS.
NIL
[27]> (dw)
LIVING-ROOM
(OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS NIL LOCATION ATTIC)

NIL
[28]> (walk 'downstairs)
You have walked DOWNSTAIRS.
NIL
[29]> (dw)
LIVING-ROOM
(OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS NIL LOCATION LIVING-ROOM)

NIL
[30]> (walk 'east)
Sorry - you cannot move EAST from the LIVING-ROOM.
NIL
[31]> (walk 'west)
You have walked WEST.
NIL
[32]> (dw)
LIVING-ROOM
(OBJECTS (WHISKEY BUCKET) PATHS ((GARDEN WEST DOOR) (ATTIC UPSTAIRS LADDER))
 DESCRIPTION
 ((YOU ARE IN THE LIVING-ROOM) (A WIZZARD IS SNORING LOUDLY ON THE COUCH)))

GARDEN
(OBJECTS (FROG CHAIN) PATHS ((LIVING-ROOM EAST DOOR)) DESCRIPTION
 ((YOU ARE IN A BEAUTIFUL GARDEN) (THERE IS A WELL IN FRONT OF YOU)))

ATTIC
(OBJECTS NIL PATHS ((LIVING-ROOM DOWNSTAIRS LADDER)) DESCRIPTION
 ((YOU ARE IN THE ATTIC) (THERE IS A GIANT WELDING TORCH IN THE CORNER)))

YOU
(OBJECTS NIL LOCATION GARDEN)

NIL